home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / in.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  2.5 KB  |  90 lines
  1. if (!defined &_IN) {
  2.     eval 'sub _IN {1;}';
  3.     if (!defined &_MACHPARAM) {
  4.     require 'machparam.ph';
  5.     }
  6.     eval 'sub IPPROTO_IP {0;}';
  7.     eval 'sub IPPROTO_ICMP {1;}';
  8.     eval 'sub IPPROTO_GGP {3;}';
  9.     eval 'sub IPPROTO_TCP {6;}';
  10.     eval 'sub IPPROTO_EGP {8;}';
  11.     eval 'sub IPPROTO_PUP {12;}';
  12.     eval 'sub IPPROTO_UDP {17;}';
  13.     eval 'sub IPPROTO_IDP {22;}';
  14.     eval 'sub IPPROTO_SPRITE {90;}';
  15.     eval 'sub IPPROTO_RAW {255;}';
  16.     eval 'sub IPPROTO_MAX {256;}';
  17.     eval 'sub IPPORT_RESERVED {1024;}';
  18.     eval 'sub IPPORT_USERRESERVED {5000;}';
  19.     eval 'sub IMPLINK_IP {155;}';
  20.     eval 'sub IMPLINK_LOWEXPER {156;}';
  21.     eval 'sub IMPLINK_HIGHEXPER {158;}';
  22.     eval 'sub IN_CLASSA {
  23.         local($i) = @_;
  24.         eval "(((\'long\')($i) & 0x80000000) == 0)";
  25.     }';
  26.     eval 'sub IN_CLASSA_NET {0xff000000;}';
  27.     eval 'sub IN_CLASSA_NSHIFT {24;}';
  28.     eval 'sub IN_CLASSA_HOST {0x00ffffff;}';
  29.     eval 'sub IN_CLASSA_MAX {128;}';
  30.     eval 'sub IN_CLASSB {
  31.         local($i) = @_;
  32.         eval "(((\'long\')($i) & 0xc0000000) == 0x80000000)";
  33.     }';
  34.     eval 'sub IN_CLASSB_NET {0xffff0000;}';
  35.     eval 'sub IN_CLASSB_NSHIFT {16;}';
  36.     eval 'sub IN_CLASSB_HOST {0x0000ffff;}';
  37.     eval 'sub IN_CLASSB_MAX {65536;}';
  38.     eval 'sub IN_CLASSC {
  39.         local($i) = @_;
  40.         eval "(((\'long\')($i) & 0xe0000000) == 0xc0000000)";
  41.     }';
  42.     eval 'sub IN_CLASSC_NET {0xffffff00;}';
  43.     eval 'sub IN_CLASSC_NSHIFT {8;}';
  44.     eval 'sub IN_CLASSC_HOST {0x000000ff;}';
  45.     eval 'sub IN_CLASSD {
  46.         local($i) = @_;
  47.         eval "(((\'long\')($i) & 0xf0000000) == 0xe0000000)";
  48.     }';
  49.     eval 'sub IN_MULTICAST {
  50.         local($i) = @_;
  51.         eval " &IN_CLASSD($i)";
  52.     }';
  53.     eval 'sub IN_EXPERIMENTAL {
  54.         local($i) = @_;
  55.         eval "(((\'long\')($i) & 0xe0000000) == 0xe0000000)";
  56.     }';
  57.     eval 'sub IN_BADCLASS {
  58.         local($i) = @_;
  59.         eval "(((\'long\')($i) & 0xf0000000) == 0xf0000000)";
  60.     }';
  61.     eval 'sub INADDR_ANY {( &u_long)0x00000000;}';
  62.     eval 'sub INADDR_BROADCAST {( &u_long)0xffffffff;}';
  63.     if (!defined &KERNEL) {
  64.     eval 'sub INADDR_NONE {0xffffffff;}';
  65.     }
  66.     eval 'sub IN_LOOPBACKNET {127;}';
  67.     eval 'sub IP_OPTIONS {1;}';
  68.     if ( &BYTE_ORDER ==  &BIG_ENDIAN && !defined( &lint)) {
  69.     eval 'sub ntohl {
  70.         local($x) = @_;
  71.         eval "($x)";
  72.     }';
  73.     eval 'sub ntohs {
  74.         local($x) = @_;
  75.         eval "($x)";
  76.     }';
  77.     eval 'sub htonl {
  78.         local($x) = @_;
  79.         eval "($x)";
  80.     }';
  81.     eval 'sub htons {
  82.         local($x) = @_;
  83.         eval "($x)";
  84.     }';
  85.     }
  86.     else {
  87.     }
  88. }
  89. 1;
  90.